Fix sign of pixel scroll events on Haiku

* src/haikuterm.c (haiku_read_socket): Fix sign of scroll
events.

diff --git a/src/haikuterm.c b/src/haikuterm.c
index 97dbe3c8d38b28435ea7c4125b92ed19ed06e313..6bf45894065150733e5694d5b68ca5a5e65d9129 100644 (file)
--- a/src/haikuterm.c
+++ b/src/haikuterm.c
@@ -3033,8 +3033,8 @@ haiku_read_socket (struct terminal *terminal, struct input_event *hold_quit)
 
                XSETINT (inev.x, x);
                XSETINT (inev.y, y);
-               inev.arg = list3 (Qnil, make_float (px),
-                                 make_float (py));
+               inev.arg = list3 (Qnil, make_float (-px),
+                                 make_float (-py));
                XSETFRAME (inev.frame_or_window, f);
 
                inev.modifiers |= (signbit (inev.kind == HORIZ_WHEEL_EVENT